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function slMultiCompare ($StringA, $StringB) 
; SL platforms : 4.01 ; LastRev: 2002-Aug-21 
; dependencies : slWildCompare ( ) , slQuestionCompare ( ) 

; compares one string to another, and supports f * ! and f ? f as a wildcards 
; stringA: constant string 
; stringB: variable string 

; stringB can contain wildcards f * ! and ! ? ! 

; stringB can be an array or a single string containing multiple elements, 

each separated by a semi-colon 
dim $ArrayB, $elementB 
$slMultiCompare=0 ; default false 
if $StringA and $StringB 
$StringA=trim ( $StringA) 

if vartype ($StringB) <8192 ; StringB is a string 

$ArrayB=split ($StringB+ 1 ; 1 , 1 ; 1 ) ; remove last ; added for split to achieve at least 
one element 

redim preserve $ArrayB [ubound ( $ArrayB) -1 ] 
else ; StringB is an array 

$ArrayB=$StringB 
endif 

for each $ElementB in $ArrayB 
$ElementB=trim ($elementB) 
select 

case $ElementB= 1 * 1 ; single wildcard - matches everything 

$slMultiCompare=l 

return ; true 
case $StringA=$ElementB 

$slMultiCompare=l 

return ; true 
case instr ($ElementB, 1 * 1 ) 

if slWildCompare ($StringA, $ElementB) 
$slMultiCompare=l 
return ; true 

endif 

case instr ($ElementB, ' ? 1 ) 

if slWildCompare ($StringA, $ElementB) 
$slMultiCompare=l 
return ; true 
endif 

case 1 ; no wildcards and we've already determined that strings don't match 
; do nothing - proceed to next array element 
endselect 
next 
endif 
endfunction 



function slWildCompare ($StringA, $StringB) 

SL platforms: 4.01 ; LastRev: 2002-Aug-21 
dependencies : slQuestionCompare ( ) 

Do not call this function directly — use slMultiCompare ( ) instead 
compares one string to another, and supports wildcards 
stringA: constant string 

stringB: variable string (can contain wildcards '*' and '?') 
could add case-sensitivity option in future... 
dim $LenStringA, $lenStringB, $QuestionLoc, $AsteriskLoc 
dim $GlobArray, $LenGAE, $lenGAEf irst , $lenGAElast, $GAUB 
$slWildCompare=0 ; default to no match 
if $StringA and $StringB 
$StringA=trim ( $StringA) 
$LenStringA=len ( $StringA) 

if $StringB= , * f ; single wildcard - matches everything 
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t 1 

$slWildCompare=l 

return ;true 
endif 

if $StringA=$StringB ; exact match 

$slWildCompare=l 

return ; true 
else ; not exact match 

$asteriskLoc=instr ($StringB, 1 * 1 ) 

$questionLoc=instr ($StringB, 1 ? 1 ) 

if not ($asteriskLoc or $questionLoc) 

return ; false: no wildcards - no reason to continue 

endif 

$lenStringB=len ($StringB) 
$GlobArray=split ($StringB+ 1 * 1 , 1 * 1 ) 
$GAUB=ubound($GlobArray) -1 

redim preserve $GlobArray [ $GAUB] ; remove last * added for split to achieve at 
least one element 

; first Glob - special case test 
$lenGAEfirst=len ($GlobArray [0] ) 

if not slQuestionCompare (left ($StringA, $lenGAEf irst) , $GlobArray [ 0 ] ) 

return ; false 
endif 

; last Glob - special case test 
$lenGAElast=len ( $GlobArray [ $ GAUB ] ) 

if not slQuestionCompare (right ($StringA, $lenGAElast) , $GlobArray [ $GAUB] ) 

return ; false 
endif 

$StringA=substr ($StringA, $lenGAEf irst+1, len ($StringA) -$lenGAElast) ; removed final 
-1 (was failing on *abc*) 

if $GAUB<2 ; less than 2 Globs - preceeding special case tests determined result 
$slWildCompare=l 
return ; true 
endif 

for $index=l to $GAUB-1 ; process elements 2 through next-to-last 
$lenGAE=len ( $GlobArray [$ index] ) 
if len ($StringA) <$lenGAE 

return ; false 
endif 

while len ( $StringA) and not 
slQuestionCompare (left ($StringA, $lenGAE) , $GlobArray [ $index] ) 
$StringA=substr ( $StringA, 2 ) 
loop 

if not slQuestionCompare (left ($StringA, $lenGAE) , $GlobArray [$index] ) 

return ; false 
else 

$StringA=substr ($StringA, $lenGAE+l) 
endif 
next 

$slWildCompare=l 
endif 
endif 
endfunction 

function slQuestionCompare ($StringA, $StringB) 
; SL platforms: 4.01 ; LastRev: 2002-Aug-21 

; Do not call this function directly — use slMultiCompare ( ) or slWildCompare ( ) instead 
; compares one string to another, and supports f ? f as a wildcard 
; StringA - constant 
; StringB - variable 
dim $index, $StringBchar 
$slQuestionCompare=l 
if $StringA and $StringB 
if $StringA=$StringB 

$slQuestionCompare=l ; true 

FIG. 9 

I 1 

B/C B/C 

+ 



10/13 



B/C 



B/C 



t 



i 



else 



$slQuestionCompare=0 ; default no match 

if not instr ($StringB, 1 ? 1 ) ; no question marks 

return ; false 
else 

; length of both strings must be same to continue 
if len($StringA)olen($StringB) ; different lengths 

return ; false 
endif 

; perform comparison character-by-character 
for $index=l to len ($StringA) 

$StringBchar=substr ($StringB, $index, 1) 

if (substr ($StringA, $index, 1) <>$StringBchar ) and $StringBchar<> 1 ? 1 

return ; false 
endif 
next 

$slQuestionCompare=l ; true 



endif 
endif 
endif 
endfunction 
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$CurrentPowerProf ileValue=readvalue ( ' HKCU\Control 
Panel\PowerCfg' , ' CurrentPowerPolicy 1 ) 

$CurrentPowerProf ileName=readvalue ( ' HKCU\Control 



FIG. 11 



Panel\PowerCfg\PowerPolicies\ 1 +$CurrentPowerProf ileValue, f Name ' ) 
select 

case instr ($SiProcessorNameString, f mobile ' ) ; Mobile CPU type 
; highly confident that this is a portable computer! 
; platforms tested on: XP 

$ClientClassRule='rule 1: Mobile CPU type -> portable' 
$SiComputerType= 1 Portable ' 
$ClientClass=' Port 1 
case @INWIN=1 and 

O+readvalue ( 1 HKLM\System\CurrentControlSet\Services\pcmcia ' , ' Start ' ) =4 ; NT & PCMCIA 
kernel driver not started 

; highly confident that this is a desktop computer! 

; platforms tested on: NT, 2000, XP 

$ClientClassRule='rule 2: PCMCIA driver not started (NT) -> desktop 1 
$SiComputerType= 1 Desktop 1 
$ClientClass=' Desk 1 
case @INWIN=2 and 

' I +readvalue( I HKLM\System\CurrentControlSet\Control\InstalledFiles', ' PCCard.vxd 1 ) =' 1 ; 9x 
& PCMCIA kernel driver not started 

; highly confident that this is a desktop computer! 

; platforms tested on: 95, 98, Me 

$ClientClassRule='rule 3: PCMCIA driver not started (9x) -> desktop' 
$SiComputerType= 1 Desktop 1 
$ClientClass=' Desk 1 
case $OSO ! NT' and $SiBatteryState=128 ; no battery present 

; fairly confident that this is a desktop computer (it could be a laptop with the 
battery removed) . 

; platforms tested on: 

$ClientClassRule='rule 4: No system battery deteted -> desktop 1 
$SiComputerType= 1 Desktop 1 
$ClientClass=' Desk 1 

case slGetServiceStartup ( ' UPS ' ) = 1 Automatic 1 ; Built-in UPS service on 2000/XP 

; highly confident that this is a desktop computer (who'd install UPS software on 
a laptop?) 

; platforms tested on: XP, 2000 

$ClientClassRule=' rule 5: built-in UPS service is automatic -> desktop 1 
$SiComputerType= ? Desktop 1 
$ClientClass=' Desk 1 
case slGetServiceStartup {' LiebertM 1 )=' Automatic ' ; Liebert MultiLink 3.0 

; highly confident that this is a desktop computer (who'd install UPS software on 
a laptop?) 

; platforms tested on: XP, 2000 

$ClientClassRule='rule 6: Liebert MultiLink UPS service is automatic -> desktop' 
$SiComputerType= 1 Desktop 1 
$ClientClass=' Desk 1 

case slGetServiceStartup ( 'APCPBEAgent ') = 'Automatic 1 ; APC PowerChute Business 
Edition 6.1 

; highly confident that this is a desktop computer (who'd install UPS software on a 
laptop?) 

; platforms tested on: XP, 2000 

$ClientClassRule= ' rule 7: APC PowerChute Business Edition UPS service is 
automatic -> desktop 1 

$SiComputerType= 1 Desktop 1 
$ClientClass=' Desk 1 

case slGetServiceStartup ( 'APC UPS Service ') = 'Automatic 1 ; APC PowerChute Personal 
Edition 

; highly confident that this is a desktop computer (who'd install UPS software on 



a laptop?) 
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; platforms tested on: XP, 2000 

$ClientClassRule='rule 8: APC PowerChute Business Edition UPS service is 
automatic -> desktop 1 

$SiComputerType= ' Desktop ' 

$ClientClass= ' Desk 1 
case $CurrentPowerProfileName= , APC USB UPS' 

; highly confident that this is a desktop computer (who f d install UPS software on 
a laptop?) 

; ***$$ W hat about other UPS brands? What about APC non-USB models? 
; platforms tested on: XP, 2000 

$ClientClassRule= f rule 9: APC USB UPS power scheme -> desktop 1 
$SiComputerType= ' Desktop ' 
$ClientClass= ' Desk 1 

case $CurrentPowerProfileName=' Portable/Laptop' or $CurrentPowerProf ileName= 'Max 
Battery 1 

; somewhat confident that this is a portable computer. This setting is user 
profile-specific and can be changed 

; platforms tested on: XP, 2000 

$ClientClassRule='rule 10: portable/laptop or max battery power scheme -> 
portable ' 

$SiComputerType= ' Portable ' 
$ClientClass= ' Port ' 



; At this point, here is what we know: 

Not a mobile CPU type 
; The Portable/Laptop power scheme is not selected 

It does have PCMCIA sockets. 
; 9x, 2000 & XP systems do not have a battery present 

$ClientClassRule='rule 11: default -> portable' 
$SiComputerType= ' Portable 1 
$ClientClass= ' Port ' 



case 1 



endselect 
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